home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / biz / swood / FW_AllInOne.lha / FW-Makros-Paket-V1 / Install_FW-Makros < prev    next >
Text File  |  1998-02-07  |  3KB  |  158 lines
  1. ;
  2. ; Copyright © 1997 Heiko Schröder
  3. ; $VER: InstallFW_Makros 1.00 (20.04.97)
  4. ;
  5.  
  6. ;
  7. ;    ============
  8. ;    Localization
  9. ;    ============
  10. ;
  11. (if (= @language "deutsch")
  12. (
  13.     (set ##bad-installer (cat
  14.         "Sie arbeiten mit einer alten Version vom 'Installer'!\n\n"
  15.         "Die Installation benötigt den Installer 42.9.\n\n"
  16.         "Bitte überprüfen Sie Ihre Konfiguration!"
  17.     ))
  18.     (set ##welcome (cat
  19.         "\n\nDas FinalWriter Makro Paket\nVersion 1\n\n\n"
  20.       "Hiermit erhalten Sie die Vollversion des Paketes\n\n"
  21.         "Dieses Paket ist © 1997  Heiko Schröder\n"
  22.         "Alle Rechte liegen beim Autor."
  23.     ))
  24.     (set ##bad-kick "\nSorry, aber es wird mindestens AmigaOS 2.04 benötigt.\n")
  25.     (set ##install "Was möchten Sie installieren oder updaten?")
  26.     (set ##inst-libs " Libraries in Libs:")
  27.     (set ##copying "Was soll kopiert werden?")
  28.     (set ##copying2 "Soll die '")
  29.     (set ##inst-test " FW-Makros.")
  30.     (set ##inst-test-dest "Bitte geben Sie das Verzeichnis für die zu installierenden Makros an.")
  31.     (set ##copying3 "Es werden nun die Makros installiert.")
  32.     (set ##copying4 "Bitte wählen Sie aus, was und wohin kopiert werden soll.")
  33.     (set ##inst-docs " Dokumentation.")
  34.     (set ##inst-docs-dest "Bitte geben Sie das Verzeichnis für die Dokumentation an.")
  35.     (set ##copying5 "Es werden nun die Dokumentationen installiert.")
  36. ))
  37.  
  38. ;
  39. ; We can't handle this script without Installer 42.9 or better!
  40. ;
  41. (if (< @installer-version 2752521)
  42. (
  43.     (message ##bad-installer)
  44.     (exit (quiet))
  45. ))
  46.  
  47. ;
  48. ;    =======
  49. ;    WELCOME
  50. ;    =======
  51. ;
  52. (complete 0)
  53. (message ##welcome (all))
  54. (welcome)
  55.  
  56. ;
  57. ;    Check kick version
  58. ;
  59. (if (= (set #flag (/ (getversion "libs:version.library") 65536)) 0)
  60.     (set #flag (/ (getversion) 65536))
  61. )
  62.  
  63. (if (< #flag 37) (abort ##bad-kick))
  64.  
  65. ;
  66. ;    CPU & FPU
  67. ;
  68. (set cpu (database "cpu"))
  69. (set fpu (database "fpu"))
  70.  
  71. ;
  72. ;    source and destination dir
  73. ;
  74. (set #srcdir (pathonly @icon))
  75. (set @default-dest "REXX:")
  76.  
  77.  
  78. ;
  79. ;    ================================================
  80. ;    the /Libs  directory with libraries...
  81. ;    the /Makrosdirectory with makros...
  82. ;    the /Docs  directory with documentation files...
  83. ;    ================================================
  84. ;
  85. (set #inst 0)
  86.  
  87. (if (> (exists (set #libs-dir (tackon #srcdir "Libs"))) 0)
  88.     (set #inst (+ #inst 1))
  89.     (set ##inst-libs "")
  90. )
  91. (if (> (exists (set #mods-dir (tackon #srcdir "Makros"))) 0)
  92.     (set #inst (+ #inst 2))
  93.     (set ##inst-test "")
  94. )
  95. (if (> (exists (set #docs-dir (tackon #srcdir "Dokumentation"))) 0)
  96.     (set #inst (+ #inst 4))
  97.     (set ##inst-docs "")
  98. )
  99.  
  100. (set #inst
  101.     (askoptions
  102.         (prompt ##install)
  103.         (help @askoptions-help)
  104.         (choices ##inst-libs ##inst-test ##inst-docs)
  105.         (default #inst)
  106.     )
  107. )
  108. (complete 10)
  109.  
  110.  
  111. (if (in #inst 0)
  112.     (foreach #libs-dir "#?.library"
  113.         (copylib
  114.             (prompt (cat ##copying2 @each-name "' installiert werden?"))
  115.             (help @copylib-help)
  116.             (source (tackon #libs-dir @each-name))
  117.             (dest "LIBS:")
  118.             (confirm)
  119.         )
  120.     )
  121. )
  122. (complete 40)
  123.  
  124.  
  125. (if (in #inst 1)
  126.     (copyfiles
  127.         (prompt (cat ##copying3 "\n" ##copying4))
  128.         (help (cat "\n"##inst-test-dest "\n\n" @copyfiles-help))
  129.         (source #mods-dir)
  130.         (dest "REXX:")
  131.         (all)
  132.       (infos)
  133.         (confirm)
  134.     )
  135. )
  136. (complete 70)
  137.  
  138. (if (in #inst 1)
  139.     (copyfiles
  140.         (prompt (cat ##copying5 "\n" ##copying4))
  141.         (help (cat "\n"##inst-docs-dest "\n\n" @copyfiles-help))
  142.         (source #docs-dir)
  143.         (dest "Work:")
  144.         (all)
  145.       (infos)
  146.         (confirm)
  147.     )
  148. )
  149.  
  150. ;
  151. ;    ===========
  152. ;    All done...
  153. ;    ===========
  154. ;
  155. (complete 100)
  156. (exit)
  157.  
  158.